home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Freeware / DiskMaster / Rexx / DMCommAll.rexx < prev    next >
OS/2 REXX Batch file  |  2002-10-27  |  1KB  |  62 lines
  1. /* $VER: DMCommAll.rexx 1.3 (2.10.98) by J. Tierney
  2.  
  3.   DiskMaster II Comment All  v1.3
  4.   10/2/98  J. Tierney
  5.  
  6.   Function:  All selected files recieve the same comment.
  7.  
  8.   Usage:  DMCommAll.rexx
  9.  
  10. */
  11.  
  12. OPTIONS RESULTS
  13.  
  14. IF ~SHOW('L', 'rexxreqtools.library') THEN DO
  15.   IF ~ADDLIB('rexxreqtools.library', 0, -30) THEN DO
  16.     SAY 'Could not open "rexxreqtools.library".'
  17.     EXIT 10
  18.     END
  19.   END
  20.  
  21. pub = ADDRESS()
  22.  
  23. comment = RTGETSTRING(, , 'Comment:', ,'rt_pubscrname=' || pub 'rt_reqpos=reqpos_centerscr')
  24. comment = FixQuotes(comment)
  25. comment = '"' || comment || '"'
  26.  
  27. IF rtresult THEN DO
  28.   DIRLIST VAR dlist SEL
  29.  
  30.   STATUS P
  31.   dir = result
  32.   PRAGMA('D', dir)
  33.  
  34.   DO i = 1 TO dlist.name.0
  35.     ADDRESS COMMAND 'C:FileNote' dlist.name.i comment
  36.   END
  37.  
  38.   DESELECT '*'
  39.   NEWDIR dir
  40. END
  41.  
  42. CALL REMLIB('rexxreqtools.library')
  43. EXIT 0
  44.  
  45.  
  46. /* Procedures */
  47.  
  48. FixQuotes: PROCEDURE
  49.   PARSE ARG string
  50.   x = 1
  51.   DO FOREVER
  52.     x = POS('"', string, x)
  53.     IF x ~= 0 THEN
  54.       DO
  55.         string = INSERT('*', string, x - 1)
  56.         x = x + 1
  57.       END
  58.     ELSE LEAVE
  59.   END
  60. RETURN string
  61.  
  62.